home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / GW AdaEd 1.4.2 / GWAdaDemos / GWU Demos / room.ads < prev    next >
Text File  |  1995-04-09  |  435b  |  20 lines
  1. --::::::::::
  2. --room.ads
  3. --::::::::::
  4. WITH Chop;
  5. WITH Phil;
  6. PACKAGE Room IS
  7.  
  8.   Table_Size: CONSTANT Positive := 5;
  9.   SUBTYPE Table_Type IS Positive RANGE 1..Table_Size;
  10.  
  11.   Sticks:     ARRAY(Table_Type) OF Chop.Stick;
  12.  
  13.   TASK Head_Waiter IS
  14.     ENTRY Open_The_Room;
  15.     ENTRY Report_State(Which_Phil: Table_Type;
  16.                        State: Phil.States;
  17.                        How_Long: Natural := 0);
  18.   END Head_Waiter;
  19.  
  20. END Room;